home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / TVBIOS1.FOR < prev    next >
Text File  |  1988-09-22  |  427b  |  27 lines
  1.       PROGRAM TVBIOS1
  2. C
  3.       EXTERNAL DVBIOS
  4.       INTEGER*2 IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL
  5. C
  6.       IAH=0
  7.       IAL=6
  8.       CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
  9. C
  10.       IAH=12
  11.       IAL=15
  12.       DO 10 J=1,200
  13.       DO 10 I=1,200
  14.       ICL=3*(J-1)
  15.       ICH=ICL/256
  16.       IDL=I-1
  17.       IDH=IDL/256
  18.       CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
  19.  10   CONTINUE
  20. C
  21.       STOP
  22.       END
  23.  
  24.  
  25.  
  26.  
  27.